home *** CD-ROM | disk | FTP | other *** search
/ Digital News 4 / Digital_News_4_1988_-_de_Side_A.d64 / irq-kurs 4 .src < prev    next >
Text File  |  2022-10-26  |  866b  |  53 lines
  1.          *= $1000
  2.  
  3. zero     = $50       ; W I C H T I G !
  4. laenge   = 202
  5. ende     = $ea31
  6.  
  7. farben   = $cd00;  _  file "DEMO COLORS"
  8.           ;{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}      muss vor dem start
  9.                      ;geladen werden
  10.          sei
  11.          lda #<irq
  12.          ldx #>irq
  13.          sta $0314
  14.          stx $0315
  15.          lda #$01
  16.          sta $d01a
  17.          lda #$00
  18.          sta $dc0e
  19.          lda #$1b
  20.          sta $d011
  21.          cli
  22.          rts
  23.  
  24. irq      inc $d019
  25. irqq     jmp irq1
  26.  
  27. irq1     ldx #5
  28. wait     dex
  29.          bne wait
  30.          ldy #0
  31. branch1  ldx #8
  32. branch2  lda farben,y
  33.          sta $d020
  34.          sta $d021
  35.  
  36.          iny
  37.          dex
  38.          beq branch1
  39.          stx zero
  40.          ldx #6
  41. loop
  42.          dex
  43.          bne loop
  44.          ldx zero
  45.          bit $02
  46.  
  47.          cpy #laenge
  48.          bcc branch2
  49.          lda #$32
  50.          sta $d012
  51.          jmp ende
  52.  
  53.